getwd()
setwd("D:/RClass")
load ("diabets.RData")
m<- subset(diabets,Sex=="Female")
n<- subset(m,GLU>3.9& GLU<6.1)
nrow(n)
